home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
cw.src
< prev
next >
Wrap
Text File
|
1991-02-21
|
4KB
|
269 lines
%%HP: T(3)A(D)F(.);
@ CW, Morse Code Practice
@ by ?
DIR
CGR
\<< "" 1 25
START 1 5
START
"+,./0123456789=?ABCDEFGHIJKLMNOPQRSTUVWXYZ]"
RAND OVER SIZE * IP
1 + DUP SUB +
NEXT " " +
NEXT 'TXT'
STO CWO DSP
\>>
SPD
\<<
"Enter overall wpm and
element wpm, then CONT"
PROMPT 1.2 SWAP /
'ST' STO ST 3 *
'LT' STO ST .04 -
'ET' STO 60 SWAP /
31 ST * - 19 ET * +
19 / 'WT' STO WT 3
* ET 4 * - .04 -
.117 - 'CT' STO
\>>
CWO
\<< CLEAR CODE
OBJ\-> TXT 1 OVER
SIZE
FOR I MEM
DROP DUP I DUP SUB
NUM 29 - PICK EVAL
CT WAIT
NEXT CLEAR
\>>
DSP
\<< 0 TXT SIZE
154 /
FOR S
IF S
THEN HALT
END S 154 *
1 + 1 7
FOR N 22 +
TXT OVER DUP 22 -
SWAP 1 - SUB N DISP
NEXT 3
FREEZE DROP
NEXT
\>>
TXT
"PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS PARIS "
CODE {
\<< W
\>>
\<< W
\>>
\<< W
\>>
\<< W
\>>
\<< W
\>>
\<< L L S S
\>>
\<< L S L L
\>>
\<< L S S L
\>>
\<< S L L
\>>
\<< S S S L
\>>
\<< S S L
\>>
\<< L
\>>
\<< S S S
\>>
\<< S L S
\>>
\<< L L S L
\>>
\<< S L L S
\>>
\<< L L L
\>>
\<< L S
\>>
\<< L L
\>>
\<< S L S S
\>>
\<< L S L
\>>
\<< S L L L
\>>
\<< S S
\>>
\<< S S S S
\>>
\<< L L S
\>>
\<< S S L S
\>>
\<< S
\>>
\<< L S S
\>>
\<< L S L S
\>>
\<< L S S S
\>>
\<< S L
\>>
\<< W
\>>
\<< S S L L S L
\>>
\<< W
\>>
\<< S S S L S L
\>>
\<< S L S S S
\>>
\<< L S L S L
\>>
\<< L L S S
\>>
\<< L S L L
\>>
\<< L S S L
\>>
\<< S L L
\>>
\<< S S S L
\>>
\<< S S L
\>>
\<< L
\>>
\<< S S S
\>>
\<< S L S
\>>
\<< L L S L
\>>
\<< S L L S
\>>
\<< L L L
\>>
\<< L S
\>>
\<< L L
\>>
\<< S L S S
\>>
\<< L S L
\>>
\<< S L L L
\>>
\<< S S
\>>
\<< S S S S
\>>
\<< L L S
\>>
\<< S S L S
\>>
\<< S
\>>
\<< L S S
\>>
\<< L S L S
\>>
\<< L S S S
\>>
\<< S L
\>>
\<< W
\>>
\<< S S L L S S
\>>
\<< W
\>>
\<< L S S S L
\>>
\<< W
\>>
\<< L S L S L S
\>>
\<< L L L S S S
\>>
\<< L L L L S
\>>
\<< L L L S S
\>>
\<< L L S S S
\>>
\<< L S S S S
\>>
\<< S S S S S
\>>
\<< S S S S L
\>>
\<< S S S L L
\>>
\<< S S L L L
\>>
\<< S L L L L
\>>
\<< L L L L L
\>>
\<< L S S L S
\>>
\<< S L S L S L
\>>
\<< L S S S S L
\>>
\<< L L S S L L
\>>
\<< S L S L S
\>>
\<< S L S L S S
\>>
\<< L S L L S L
\>>
\<< L S L L S
\>>
\<< S L L L L S
\>>
\<< W
\>>
\<< W
\>>
\<< S S S L S S L
\>>
\<< S S S S S S S
S
\>>
\<< S L S S L S
\>>
\<< S S S L S
\>>
\<< W
\>> }
ST .08
LT .24
ET .04
CT .043
WT .12
FR 500
S
\<< FR ST BEEP ET
WAIT
\>>
L
\<< FR LT BEEP ET
WAIT
\>>
W
\<< FR 0 BEEP WT
WAIT
\>>
END